home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
ptv1n5.arc
/
HEAP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-11-07
|
532b
|
25 lines
unit Heap;
interface
uses _Heap;
function FreeBlocks: word;
inline($A1 / _Heap.FreeBlocks); {mov ax,[FreeBlocks]}
function MemAvail: LongInt;
inline($C4 / $06 / _Heap.MemAvail / {les ax,[MemAvail]}
$8C / $C2); {mov dx,es}
function MaxAvail: LongInt;
inline($C4 / $06 / _Heap.MaxAvail / {les ax,[MaxAvail]}
$8C / $C2); {mov dx,es}
{The other declarations ...}
implementation
{Heap code may read and write _Heap vars}
end.